home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol218 / overview.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-30  |  13.4 KB  |  413 lines
  1. 100  REM Overview Program for Genealogy ON DISPLAY
  2. 110  REM By:  Melvin O. Duke.  Last Updated 27 January 1986
  3. 115  SCREEN 0,1,0,0
  4. 120  SCREEN 1 : COLOR 1 : CLS
  5. 130  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  6. 140  LOCATE  6,14 : PRINT "Version 4.0";
  7. 150  LOCATE 10, 8 : PRINT "A User-Supported Program";
  8. 160  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  9. 170  LOCATE 16,12 : PRINT "P.O. Box 20836";
  10. 180  LOCATE 18,10 : PRINT "San Jose, CA  95160";
  11. 190  LOCATE 20,12 : PRINT "(408) 268-6637";
  12. 200  LOCATE 23, 1 : PRINT "Press the escape key (Esc) to end, or";
  13. 210  LOCATE 24, 1 : PRINT "Press any key to continue at each pause";
  14. 220  GOSUB 4000 'pause
  15. 230  CLS
  16. 240  LOCATE  1,10 : PRINT "CAPABILITIES";
  17. 250  LOCATE  4, 2 : PRINT "CHARTS:";
  18. 260  LOCATE  4,15 : PRINT "Pedigree (Family Tree)";
  19. 270  LOCATE  6,15 : PRINT "Family Group";
  20. 280  LOCATE  8,15 : PRINT "Descendents";
  21. 290  GOSUB 4000 'pause
  22. 300  LOCATE 11, 2 : PRINT "LISTS:";
  23. 310  LOCATE 11,15 : PRINT "Persons (numeric)";
  24. 320  LOCATE 13,15 : PRINT "Persons (alphabetic)";
  25. 330  LOCATE 15,15 : PRINT "Marriages (numeric)";
  26. 340  LOCATE 17,15 : PRINT "Marriages (alphabetic)";
  27. 350  LOCATE 19,15 : PRINT "Parent/Child Index";
  28. 360  GOSUB 4000 'pause
  29. 370  LOCATE 22, 2 : PRINT "DETAILS:";
  30. 380  LOCATE 22,15 : PRINT "About Persons";
  31. 390  LOCATE 24,15 : PRINT "About Marriages";
  32. 400  GOSUB 4000 'pause
  33. 410  CLS
  34. 420  LOCATE  1,10 : PRINT "CAPABILITIES, Cont.";
  35. 430  LOCATE  4, 2 : PRINT "SCREEN:";
  36. 440  LOCATE  4,15 : PRINT "Pedigrees (Family Trees)";
  37. 450  LOCATE  6,15 : PRINT "Family Groups";
  38. 460  LOCATE  8,15 : PRINT "Descendants";
  39. 470  LOCATE 10,15 : PRINT "Personal Detail";
  40. 480  LOCATE 12,15 : PRINT "LDS Ordinances";
  41. 490  LOCATE 17,15 : PRINT "(This is where";
  42. 500  LOCATE 19,15 : PRINT "Genealogy ON DISPLAY";
  43. 510  LOCATE 21,15 : PRINT "got its name)";
  44. 520  GOSUB 4000 'pause
  45. 530  CLS
  46. 540  LOCATE  2,10 : PRINT "DATA STORAGE PRINCIPLE";
  47. 550  LOCATE  6, 2 : PRINT "Information Must be Recorded one time";
  48. 560  LOCATE  8, 2 : PRINT "only.";
  49. 570  GOSUB 4000 'pause
  50. 580  LOCATE 13,10 : PRINT "DATA BASE PRINCIPLE";
  51. 590  LOCATE 17, 2 : PRINT "Data Storage Must be Separated from";
  52. 600  LOCATE 19, 2 : PRINT "Data Presentation.";
  53. 610  GOSUB 4000 'pause
  54. 620  CLS
  55. 630  LOCATE  2,10 : PRINT "FILES";
  56. 640  LOCATE  7, 2 : PRINT "DATA FILES:";
  57. 650  LOCATE  7,15 : PRINT "Persons File";
  58. 660  LOCATE  9,15 : PRINT "Marriages File";
  59. 670  LOCATE 11,15 : PRINT "Ordinances File (LDS)";
  60. 680  GOSUB 4000 'pause
  61. 690  LOCATE 17, 2 : PRINT "INDEXES:";
  62. 700  LOCATE 17,15 : PRINT "Parent/Child Index";
  63. 710  LOCATE 19,15 : PRINT "Marriage Index";
  64. 720  GOSUB 4000 'pause
  65. 730  CLS
  66. 740  LOCATE  2,10 : PRINT "RECORDS";
  67. 750  LOCATE  6, 2 : PRINT "Person Record";
  68. 760  R1 = 7 : C1 =  1 : R2 = 9 : C2 = 40 : GOSUB 4100 'box
  69. 770  R1 = 7 : C1 =  7 : R2 = 9 : C2 =  7 : GOSUB 4150 'line
  70. 780  R1 = 7 : C1 = 30 : R2 = 9 : C2 = 30 : GOSUB 4100 'line
  71. 790  R1 = 7 : C1 = 35 : R2 = 9 : C2 = 35 : GOSUB 4100 'line
  72. 800  LOCATE  8, 3 : PRINT "P.No";
  73. 810  LOCATE  8,10 : PRINT "Vital Statistics";
  74. 820  LOCATE  8,31 : PRINT "F.No";
  75. 830  LOCATE  8,36 : PRINT "M.No";
  76. 840  GOSUB 4000 'pause
  77. 850  LOCATE 13, 2 : PRINT "Marriage Record"
  78. 860  R1 = 14 : C1 =  1 : R2 = 16 : C2 = 40 : GOSUB 4100 'box
  79. 870  R1 = 14 : C1 =  7 : R2 = 16 : C2 =  7 : GOSUB 4150 'line
  80. 880  R1 = 14 : C1 = 30 : R2 = 16 : C2 = 30 : GOSUB 4150 'line
  81. 890  R1 = 14 : C1 = 35 : R2 = 16 : C2 = 35 : GOSUB 4150 'line
  82. 900  LOCATE 15, 3 : PRINT "M.No";
  83. 910  LOCATE 15,10 : PRINT "Vital Statistics";
  84. 920  LOCATE 15,31 : PRINT "H.No";
  85. 930  LOCATE 15,36 : PRINT "W.No";
  86. 940  GOSUB 4000 'pause
  87. 950  LOCATE 20, 2 : PRINT "Ordinance Record"
  88. 960  R1 = 21 : C1 = 1 : R2 = 23 : C2 = 40 : GOSUB 4100 'box
  89. 970  R1 = 21 : C1 = 7 : R2 = 23 : C2 =  7 : GOSUB 4150 'box
  90. 980  LOCATE 22, 3 : PRINT "P.No";
  91. 990  LOCATE 22,10 : PRINT "LDS Ordinances";
  92. 1000  GOSUB 4000 'pause
  93. 1010  CLS
  94. 1020  LOCATE  2,10 : PRINT "BUILDING A PEDIGREE CHART";
  95. 1030  REM Person
  96. 1040  LOCATE 14, 2 : PRINT "P       F M";
  97. 1050  R1 = 13 : C1 =  1 : R2 = 15 : C2 = 13 : GOSUB 4100 'box
  98. 1060  R1 = 13 : C1 =  9 : R2 = 15 : C2 =  9 : GOSUB 4150 'line
  99. 1070  R1 = 13 : C1 = 11 : R2 = 15 : C2 = 11 : GOSUB 4150 'line
  100. 1080  GOSUB 4000 'pause
  101. 1090  REM Father
  102. 1100  LOCATE  8,10 : PRINT "P       F M";
  103. 1110  R1 =  7 : C1 =  9 : R2 = 9 : C2 = 21 : GOSUB 4100 'box
  104. 1120  R1 =  7 : C1 = 17 : R2 = 9 : C2 = 17 : GOSUB 4150 'line
  105. 1130  R1 =  7 : C1 = 19 : R2 = 9 : C2 = 19 : GOSUB 4150 'line
  106. 1140  R1 = 13 : C1 = 10 : R2 = 9 : C2 = 10 : GOSUB 4150 'line
  107. 1150  GOSUB 4000 'pause
  108. 1160  REM Mother
  109. 1170  LOCATE 20,12 : PRINT "P       F M";
  110. 1180  R1 = 19 : C1 = 11 : R2 = 21 : C2 = 23 : GOSUB 4100 'box
  111. 1190  R1 = 19 : C1 = 19 : R2 = 21 : C2 = 19 : GOSUB 4150 'line
  112. 1200  R1 = 19 : C1 = 21 : R2 = 21 : C2 = 21 : GOSUB 4150 'line
  113. 1210  R1 = 15 : C1 = 12 : R2 = 19 : C2 = 12 : GOSUB 4150 'line
  114. 1220  GOSUB 4000 'pause
  115. 1230  REM Paternal Grandfather
  116. 1240  LOCATE  5,18 : PRINT "P       F M";
  117. 1250  R1 =  4 : C1 = 17 : R2 =  6 : C2 = 29 : GOSUB 4100 'box
  118. 1260  R1 =  4 : C1 = 25 : R2 =  6 : C2 = 25 : GOSUB 4150 'line
  119. 1270  R1 =  4 : C1 = 27 : R2 =  6 : C2 = 27 : GOSUB 4150 'line
  120. 1280  R1 =  6 : C1 = 18 : R2 =  7 : C2 = 18 : GOSUB 4150 'line
  121. 1290  GOSUB 4000 'pause
  122. 1300  REM Paternal Grandmother
  123. 1310  LOCATE 11,20 : PRINT "P       F M";
  124. 1320  R1 = 10 : C1 = 19 : R2 = 12 : C2 = 31 : GOSUB 4100 'box
  125. 1330  R1 = 10 : C1 = 27 : R2 = 12 : C2 = 27 : GOSUB 4150 'line
  126. 1340  R1 = 10 : C1 = 29 : R2 = 12 : C2 = 29 : GOSUB 4150 'line
  127. 1350  R1 =  9 : C1 = 20 : R2 = 10 : C2 = 20 : GOSUB 4150 'line
  128. 1360  GOSUB 4000 'pause
  129. 1370  REM Maternal Grandfather
  130. 1380  LOCATE 17,20 : PRINT "P       F M";
  131. 1390  R1 = 16 : C1 = 19 : R2 = 18 : C2 = 31 : GOSUB 4100 'box
  132. 1400  R1 = 16 : C1 = 27 : R2 = 18 : C2 = 27 : GOSUB 4150 'line
  133. 1410  R1 = 16 : C1 = 29 : R2 = 18 : C2 = 29 : GOSUB 4150 'line
  134. 1420  R1 = 18 : C1 = 20 : R2 = 19 : C2 = 20 : GOSUB 4150 'line
  135. 1430  GOSUB 4000 'pause
  136. 1440  REM Maternal Grandmother
  137. 1450  LOCATE 23,22 : PRINT "P       F M";
  138. 1460  R1 = 22 : C1 = 21 : R2 = 24 : C2 = 33 : GOSUB 4100 'box
  139. 1470  R1 = 22 : C1 = 29 : R2 = 24 : C2 = 29 : GOSUB 4150 'line
  140. 1480  R1 = 22 : C1 = 31 : R2 = 24 : C2 = 31 : GOSUB 4150 'line
  141. 1490  R1 = 22 : C1 = 22 : R2 = 21 : C2 = 22 : GOSUB 4150 'line
  142. 1500  GOSUB 4000 'pause
  143. 1510  CLS
  144. 1520  LOCATE  2,10 : PRINT "INDEXES";
  145. 1530  LOCATE  6, 2 : PRINT "Parent/Child Index";
  146. 1540  R1 =  7 : C1 =  8 : R2 = 13 : C2 = 28 : GOSUB 4100 'box
  147. 1550  R1 =  7 : C1 = 15 : R2 = 13 : C2 = 15 : GOSUB 4150 'line
  148. 1560  R1 =  7 : C1 = 21 : R2 = 13 : C2 = 21 : GOSUB 4150 'line
  149. 1570  R1 =  9 : C1 =  8 : R2 =  9 : C2 = 28 : GOSUB 4150 'line
  150. 1580  R1 = 11 : C1 =  8 : R2 = 11 : C2 = 28 : GOSUB 4150 'line
  151. 1590  LOCATE  8, 9 : PRINT "Parent";
  152. 1600  LOCATE  8,16 : PRINT "Child";
  153. 1610  LOCATE  8,22 : PRINT "B-Date";
  154. 1620  LOCATE 10, 9 : PRINT "Parent";
  155. 1630  LOCATE 10,16 : PRINT "Child";
  156. 1640  LOCATE 10,22 : PRINT "B-Date";
  157. 1650  LOCATE 12, 9 : PRINT "Parent";
  158. 1660  LOCATE 12,16 : PRINT "Child";
  159. 1670  LOCATE 12,22 : PRINT "B-Date";
  160. 1680  GOSUB 4000 'pause
  161. 1690  LOCATE 16, 2 : PRINT "Marriages Index";
  162. 1700  R1 = 17 : C1 =  8 : R2 = 23 : C2 = 28 : GOSUB 4100 'box
  163. 1710  R1 = 19 : C1 =  8 : R2 = 19 : C2 = 28 : GOSUB 4150 'line
  164. 1720  R1 = 21 : C1 =  8 : R2 = 21 : C2 = 28 : GOSUB 4150 'line
  165. 1730  R1 = 17 : C1 = 15 : R2 = 23 : C2 = 15 : GOSUB 4150 'line
  166. 1740  R1 = 17 : C1 = 21 : R2 = 23 : C2 = 21 : GOSUB 4150 'line
  167. 1750  LOCATE 18, 9 : PRINT "Person";
  168. 1760  LOCATE 18,16 : PRINT "Marr.";
  169. 1770  LOCATE 18,22 : PRINT "M-Date";
  170. 1780  LOCATE 20, 9 : PRINT "Person";
  171. 1790  LOCATE 20,16 : PRINT "Marr.";
  172. 1800  LOCATE 20,22 : PRINT "M-Date";
  173. 1810  LOCATE 22, 9 : PRINT "Person";
  174. 1820  LOCATE 22,16 : PRINT "Marr.";
  175. 1830  LOCATE 22,22 : PRINT "M-Date";
  176. 1840  GOSUB 4000 'pause
  177. 1850  CLS
  178. 1860  LOCATE  4,14 : PRINT "DATA BASE";
  179. 1870  LOCATE 10, 8 : PRINT "A Relationship-Indexed";
  180. 1880  LOCATE 12, 8 : PRINT "Data-base Organization";
  181. 1890  LOCATE 20, 9 : PRINT "Ties it all together";
  182. 1900  GOSUB 4000 'pause
  183. 1910  CLS
  184. 1920  LOCATE  2,10 : PRINT "BUILDING FAMILIES";
  185. 1930  R1 = 10 : C1 = 2 : R2 = 12 : C2 = 11 : GOSUB 4100 'box
  186. 1940  LOCATE 11, 3 : PRINT "Marriage";
  187. 1950  GOSUB 4000 'pause
  188. 1960  R1 =  5 : C1 =  2 : R2 =  7 : C2 = 11 : GOSUB 4100 'box
  189. 1970  LOCATE  6, 3 : PRINT "Person";
  190. 1980  R1 =  7 : C1 = 20 : R2 = 10 : C2 = 29 : GOSUB 4100 'box
  191. 1990  LOCATE  8,21 : PRINT "Marriage";
  192. 2000  LOCATE  9,21 : PRINT "Index";
  193. 2010  R1 =  7 : C1 = 11 : R2 =  7 : C2 = 20 : GOSUB 4150 'line
  194. 2020  R1 = 10 : C1 = 20 : R2 = 10 : C2 = 11 : GOSUB 4150 'line
  195. 2030  GOSUB 4000 'pause
  196. 2040  R1 = 12 : C1 = 20 : R2 = 16 : C2 = 29 : GOSUB 4100 'box
  197. 2050  LOCATE 13,21 : PRINT "Parent/";
  198. 2060  LOCATE 14,21 : PRINT " Child";
  199. 2070  LOCATE 15,21 : PRINT "Index";
  200. 2080  R1 = 16 : C1 =  2 : R2 = 18 : C2 = 11 : GOSUB 4100 'box
  201. 2090  LOCATE 17, 3 : PRINT "Child";
  202. 2100  R1 = 12 : C1 = 11 : R2 = 12 : C2 = 20 : GOSUB 4150 'line
  203. 2110  R1 = 16 : C1 = 20 : R2 = 16 : C2 = 11 : GOSUB 4150 'line
  204. 2120  GOSUB 4000 'pause
  205. 2130  R1 = 18 : C1 =  2 : R2 = 20 : C2 = 11 : GOSUB 4100 'box
  206. 2140  LOCATE 19, 3 : PRINT "Child";
  207. 2150  GOSUB 4000 'pause
  208. 2160  R1 = 20 : C1 =  2 : R2 = 22 : C2 = 11 : GOSUB 4100 'box
  209. 2170  LOCATE 21, 3 : PRINT "Child";
  210. 2180  GOSUB 4000 'pause
  211. 2190  R1 = 22 : C1 =  2 : R2 = 24 : C2 = 11 : GOSUB 4100 'box
  212. 2200  LOCATE 23, 3 : PRINT "Child";
  213. 2210  GOSUB 4000 'pause
  214. 2220  CLS
  215. 2230  LOCATE  2,10 : PRINT "GETTING STARTED";
  216. 2240  LOCATE  8, 2 : PRINT "List of Persons";
  217. 2250  LOCATE 12, 2 : PRINT "List of Marriages";
  218. 2260  LOCATE 16, 2 : PRINT "Formatted Diskette (for data)";
  219. 2270  GOSUB 4000 'pause
  220. 2280  CLS
  221. 2290  LOCATE  2,10 : PRINT "LIST OF PERSONS";
  222. 2300  LOCATE  5, 2 : PRINT "Number  Name            F.No  M.No"
  223. 2310  LOCATE  7, 2 : PRINT "  1";
  224. 2320  LOCATE  9, 2 : PRINT "  2";
  225. 2330  LOCATE 11, 2 : PRINT "  3";
  226. 2340  LOCATE 13, 2 : PRINT "  4";
  227. 2350  LOCATE 15, 2 : PRINT "  5";
  228. 2360  LOCATE 17, 2 : PRINT "  6";
  229. 2370  LOCATE 19, 2 : PRINT "  7";
  230. 2380  LOCATE 21, 2 : PRINT "  8";
  231. 2390  GOSUB 4000 'pause
  232. 2400  LOCATE  7,10 : PRINT "You";
  233. 2410  GOSUB 4000 'pause
  234. 2420  LOCATE  9,10 : PRINT "Your Father";
  235. 2430  GOSUB 4000 'pause
  236. 2440  LOCATE 11,10 : PRINT "Your Mother";
  237. 2450  GOSUB 4000 'pause
  238. 2460  LOCATE  7,26 : PRINT "  2";
  239. 2470  LOCATE  7,32 : PRINT "  3";
  240. 2480  GOSUB 4000 'pause
  241. 2490  LOCATE 13,10 : PRINT "Your Spouse";
  242. 2500  GOSUB 4000 'pause
  243. 2510  CLS
  244. 2520  LOCATE  2,10 : PRINT "LIST OF MARRIAGES";
  245. 2530  LOCATE  5, 2 : PRINT "M.No.  H.No  Husband    W.No  Wife";
  246. 2540  LOCATE  7, 2 : PRINT "  1";
  247. 2550  LOCATE  9, 2 : PRINT "  2";
  248. 2560  LOCATE 11, 2 : PRINT "  3";
  249. 2570  LOCATE 13, 2 : PRINT "  4";
  250. 2580  LOCATE 15, 2 : PRINT "  5";
  251. 2590  LOCATE 17, 2 : PRINT "  6";
  252. 2600  LOCATE 19, 2 : PRINT "  7";
  253. 2610  LOCATE 21, 2 : PRINT "  8";
  254. 2620  GOSUB 4000 'pause
  255. 2630  LOCATE  7, 9 : PRINT "  2   Dad";
  256. 2640  LOCATE  7,26 : PRINT "  3   Mom";
  257. 2650  GOSUB 4000 'pause
  258. 2660  LOCATE  9, 9 : PRINT "  1   Mel";
  259. 2670  LOCATE  9,26 : PRINT "  4   Helen";
  260. 2680  GOSUB 4000 'pause
  261. 2690  CLS
  262. 2700  LOCATE 10,10 : PRINT "LET'S GET STARTED";
  263. 2710  GOSUB 4000 'pause
  264. 2720  CLS
  265. 2730  LOCATE  3, 6 : PRINT "PREPARE YOUR DATA DISKETTE";
  266. 2740  LOCATE  7, 2 : PRINT "FORMAT a Diskette for your data";
  267. 2750  LOCATE  9, 6 : PRINT "(Without the System on it)";
  268. 2760  LOCATE 11, 6 : PRINT "(Give it a Label if you want to)";
  269. 2770  GOSUB 4000 'pause
  270. 2780  LOCATE 15, 2 : PRINT "Copy the Verifile to it";
  271. 2790  GOSUB 4000 'pause
  272. 2800  LOCATE 19, 2 : PRINT "Copy the Menu to it";
  273. 2810  GOSUB 4000 'pause
  274. 2820  CLS
  275. 2830  LOCATE  3, 6 : PRINT "BRING UP BASIC";
  276. 2840  LOCATE  7, 2 : PRINT "Type:   basic/s:256";
  277. 2850  LOCATE  9, 4 : PRINT "and press the 'enter' key.";
  278. 2860  LOCATE 13, 4 : PRINT "(Need a 256 byte file buffer"
  279. 2870  LOCATE 15, 4 : PRINT " for the Genealogy Records)"
  280. 2880  GOSUB 4000 'pause
  281. 2890  CLS
  282. 2900  LOCATE  3, 6 : PRINT "BRING UP THE GENEALOGY MENU";
  283. 2910  LOCATE  7, 4 : PRINT "(With either the Program Diskette,";
  284. 2920  LOCATE  9, 4 : PRINT " or the Data Diskette in Place)";
  285. 2930  LOCATE 13, 2 : PRINT "Type:   run ";CHR$(34);"menu";CHR$(34);
  286. 2940  LOCATE 15, 4 : PRINT "and press the 'enter' key.";
  287. 2950  GOSUB 4000 'pause
  288. 2960  CLS
  289. 2970  LOCATE  2,10 : PRINT "CREATE THE DATA FILES";
  290. 2980  LOCATE  7, 2 : PRINT "Create (format) the Persons File";
  291. 2990  LOCATE  9, 4 : PRINT "Select the CREATPER Program";
  292. 3000  GOSUB 4000 'pause
  293. 3010  LOCATE 13, 2 : PRINT "Create (format) the Marriages File";
  294. 3020  LOCATE 15, 4 : PRINT "Select the CREATMAR Program";
  295. 3030  GOSUB 4000 'pause
  296. 3040  LOCATE 19, 2 : PRINT "Create (format) the Ordinances File";
  297. 3050  LOCATE 21, 4 : PRINT "Select the CREATORD Program";
  298. 3060  GOSUB 4000 'pause
  299. 3070  CLS
  300. 3080  LOCATE  2,10 : PRINT "ENTER YOUR DATA";
  301. 3090  LOCATE  6, 2 : PRINT "Enter Personal Information";
  302. 3100  LOCATE  8, 4 : PRINT "Select the UPDATPER Program";
  303. 3110  GOSUB 4000 'pause
  304. 3120  LOCATE 12, 2 : PRINT "Enter Marriage Information";
  305. 3130  LOCATE 14, 4 : PRINT "Select the UPDATMAR Program";
  306. 3140  GOSUB 4000 'pause
  307. 3150  LOCATE 18, 2 : PRINT "Enter Ordinances Information";
  308. 3160  LOCATE 20, 4 : PRINT "Select the UPDATORD Program";
  309. 3170  GOSUB 4000 'pause
  310. 3180  CLS
  311. 3190  LOCATE  2,10 : PRINT "FORM THE INDEXES";
  312. 3200  LOCATE  6, 2 : PRINT "Form the Parent/Child Index";
  313. 3210  LOCATE  8, 4 : PRINT "Select the INDEXPC Program";
  314. 3220  LOCATE 10, 6 : PRINT "(Run when Person Records Change)";
  315. 3230  GOSUB 4000 'pause
  316. 3240  LOCATE 16, 2 : PRINT "Form the Marriages Index";
  317. 3250  LOCATE 18, 4 : PRINT "Select the INDEXMAR Program";
  318. 3260  LOCATE 20, 6 : PRINT "(Run when Marriage Records Change)";
  319. 3270  GOSUB 4000 'pause
  320. 3280  CLS
  321. 3290  LOCATE 11,10 : PRINT "NOW THE FUN BEGINS";
  322. 3300  GOSUB 4000 'pause
  323. 3310  CLS
  324. 3320  LOCATE  2,10 : PRINT "VIEW YOUR GENEALOGY";
  325. 3330  LOCATE  5, 2 : PRINT "Select the DISPLAY Program";
  326. 3340  LOCATE  7, 4 : PRINT "View Personal Information";
  327. 3350  LOCATE  9, 4 : PRINT "View Pedigree Charts";
  328. 3360  LOCATE 11, 4 : PRINT "View Family Groups";
  329. 3370  LOCATE 13, 4 : PRINT "View Ordinances";
  330. 3380  GOSUB 4000 'pause
  331. 3390  LOCATE 18, 2 : PRINT "Select the DESCEND Program";
  332. 3400  LOCATE 20, 4 : PRINT "View Descendants";
  333. 3410  GOSUB 4000 'pause
  334. 3420  CLS
  335. 3430  LOCATE  2,10 : PRINT "PAPER FOR THE CHARTS";
  336. 3440  LOCATE  5, 2 : PRINT "Wide (14 inch) Paper, or";
  337. 3450  LOCATE  7, 2 : PRINT "Narrow (8-1/2 inch) Paper"
  338. 3460  LOCATE 11, 2 : PRINT "Single Sheets, or";
  339. 3470  LOCATE 13, 2 : PRINT "Continuous Forms";
  340. 3480  LOCATE 17, 2 : PRINT "Blank Paper, or";
  341. 3490  LOCATE 19, 2 : PRINT "Pre-printed Forms";
  342. 3500  LOCATE 21, 4 : PRINT "Family Group, GA-032";
  343. 3510  LOCATE 23, 4 : PRINT "Pedigree Chart, GA-054";
  344. 3520  GOSUB 4000 'pause
  345. 3530  CLS
  346. 3540  LOCATE  2,10 : PRINT "PRINT THE CHARTS";
  347. 3550  LOCATE  5, 2 : PRINT "Print Pedigree Charts";
  348. 3560  LOCATE  7, 4 : PRINT "Select the PEDIGREE Program";
  349. 3570  GOSUB 4000 'pause
  350. 3580  LOCATE 11, 2 : PRINT "Print Family Group Sheets";
  351. 3590  LOCATE 13, 4 : PRINT "Select the FAMILY Program";
  352. 3600  GOSUB 4000 'pause
  353. 3610  LOCATE 17, 2 : PRINT "Print Descendents Charts";
  354. 3620  LOCATE 19, 4 : PRINT "Select the DESCEND Program";
  355. 3630  GOSUB 4000 'pause
  356. 3640  CLS
  357. 3650  LOCATE  2,10 : PRINT "PRINT THE LISTS";
  358. 3660  LOCATE  5, 2 : PRINT "Print Lists of Persons by Number";
  359. 3670  LOCATE  7, 4 : PRINT "Select the LISTPER Program";
  360. 3680  GOSUB 4000 'pause
  361. 3690  LOCATE  9, 2 : PRINT "Print Alphabetized Lists of Persons";
  362. 3700  LOCATE 11, 4 : PRINT "Select the ALPHAPER Program";
  363. 3710  GOSUB 4000 'pause
  364. 3720  LOCATE 13, 2 : PRINT "Print Lists of Marriages by Number";
  365. 3730  LOCATE 15, 4 : PRINT "Select the LISTMAR Program";
  366. 3740  GOSUB 4000 'pause
  367. 3750  LOCATE 17, 2 : PRINT "Print Alphabetized Lists of Marriages";
  368. 3760  LOCATE 19, 4 : PRINT "Select the ALPHAMAR Program";
  369. 3770  GOSUB 4000 'pause
  370. 3780  LOCATE 21, 2 : PRINT "Print the Parent/Child Index";
  371. 3790  LOCATE 23, 4 : PRINT "Select the LISTPCI Program";
  372. 3800  GOSUB 4000 'pause
  373. 3810  CLS
  374. 3820  LOCATE  2, 5 : PRINT "PRINT DETAILED INFORMATION";
  375. 3830  LOCATE  6, 2 : PRINT "Print Detailed Personal Data";
  376. 3840  LOCATE  9, 4 : PRINT "Select the PRINTPER Program";
  377. 3850  GOSUB 4000 'pause
  378. 3860  LOCATE 14, 2 : PRINT "Print Detailed Marriage Data";
  379. 3870  LOCATE 17, 4 : PRINT "Select the PRINTMAR Program";
  380. 3880  GOSUB 4000 'pause
  381. 3890  CLS
  382. 3900  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  383. 3910  LOCATE  6,14 : PRINT "Version 4.0";
  384. 3920  LOCATE 10, 8 : PRINT "A User-Supported Program";
  385. 3930  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  386. 3940  LOCATE 16,12 : PRINT "P.O. Box 20836";
  387. 3950  LOCATE 18,10 : PRINT "San Jose, CA  95160";
  388. 3960  LOCATE 20,12 : PRINT "(408) 268-6637";
  389. 3970  LOCATE 23, 1
  390. 3980  GOSUB 4000 'pause
  391. 3990  GOTO 4030
  392. 4000  REM Generalized Pause Routine
  393. 4010  A$ = INKEY$
  394. 4020  IF A$ = CHR$(27) THEN 4030 ELSE 4070
  395. 4030  CLS
  396. 4040  SCREEN 0,0,0,0
  397. 4050  WIDTH "scrn:",80
  398. 4060  GOTO 4200
  399. 4070  IF A$ = "" THEN 4010
  400. 4080  RETURN
  401. 4090  '
  402. 4100  REM Generalized Box Routine
  403. 4110  REM Entry is R1, C1, R2, C2
  404. 4120  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4),,B
  405. 4130  RETURN
  406. 4140  '
  407. 4150  REM Generalized Line Routine
  408. 4160  REM Entry is R1, C1, R2, C2
  409. 4170  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4)
  410. 4180  RETURN
  411. 4190  '
  412. 4200  END
  413.